10 DATA 3E,0: ' LD A, "0"
20 DATA CD,0E,BC: ' CALL &BC0E - SET MODE
30 DATA 3E,2: ' LD A, "2"
40 DATA CD,90,BB: ' CALL &BB90 - SET PEN
50 DATA 3E,1: ' LD A, "1"
60 DATA CD,96,BB: ' CALL &BB96 - SET PAPER
70 DATA 3E,A: ' LD A, 10
80 DATA CD,6F,BB: ' CALL &BB6F - CURSOR COLUMN
90 DATA 3E,5: ' LD A, 5
100 DATA CD,72,BB: ' CALL &BB72 - CURSOR ROW
110 DATA 3E,61: ' LD A, "a"
120 DATA CD,5A,BB: ' CALL &BB5A - WRITECHAR
130 DATA 3E,4: ' LD A, "4"
140 DATA CD,90,BB: ' CALL &BB90 - SET PEN
150 DATA 3E,3: ' LD A, "3"
160 DATA CD,96,BB: ' CALL &BB96 - SET PAPER
170 DATA 3E,1: ' LD A, 1
180 DATA CD,6F,BB: ' CALL &BB6F - CURSOR COLUMN
190 DATA 3E,A: ' LD A, 10
200 DATA CD,72,BB: ' CALL &BB72 - CURSOR ROW
210 DATA 3E,63: ' LD A, "c"
220 DATA CD,5A,BB: ' CALL &BB5A - WRITECHAR
230 DATA C9: ' RET
240 longitud = 55
250 MEMORY 39999
260 FOR n=40000 TO 40000+longitud
270 READ a$:POKE n,VAL("&"+a$)
280 NEXT
290 CALL 40000
